home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCROLL.SWG / 0014_Vertical Graphics Scrolli.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  743b  |  34 lines
  1. {
  2. > I've got all kinds of routines by now, from fire to plasma, etc.
  3. > But what I need is a screen in graphics mode 13h (or mode-x),
  4. > where text scrolls from the bottom of the screen to the top of
  5. > the screen.
  6.  
  7. The address is a000:0000 -  now all you should do is:
  8. }
  9. x : array[1..320] of byte;
  10. asm
  11. mov ax,$a000
  12. mov es,ax
  13. mov ds,ax
  14. cld
  15. mov cx,160
  16. xor si,si
  17. mov di,offset x[1]
  18. rep movsw
  19. mov si,320
  20. xor di,di
  21. mov cx,160*199
  22. rep movsw
  23. mov si,offset x[1]
  24. mov di,320*199
  25. mov cx,160
  26. rep movsw
  27. end;
  28.  
  29. {
  30. That should do it - A simple move operation.
  31. Note: This will only scroll one line. I think it's fast enough - although I
  32. tested it on a 386-dx40. The drawback of it is that you get this nasty line on
  33. the screen.
  34. }